home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2002 January / january_2002.iso / Piposh Special / Piposh / COMEIN.DXR / 00138.ls < prev    next >
Encoding:
Text File  |  2004-12-06  |  781 b   |  27 lines
  1. on exitFrame
  2.   global plant, plantcounter, effectspath
  3.   if plantcounter < 0 then
  4.     set the member of sprite 27 to member(87, 1)
  5.     set the member of sprite 28 to member(87, 1)
  6.     set the member of sprite 29 to member(87, 1)
  7.     updateStage()
  8.     if plant < 9 then
  9.       x = random(5)
  10.       if (x = 1) or (x = 2) or (x = 3) then
  11.         sound playFile 2, effectspath & "atziz"
  12.         plantcounter = 14
  13.         sprite(26 + x).visible = 1
  14.         set the member of sprite (26 + x) to member(83 + x, 1)
  15.         y = random(6)
  16.         if (x = 1) or (x = 2) or (x = 3) then
  17.           sprite(26 + x).visible = 1
  18.           set the member of sprite (26 + x) to member(83 + x, 1)
  19.         end if
  20.         plant = plant + 1
  21.       end if
  22.     else
  23.       go("rafwin")
  24.     end if
  25.   end if
  26. end
  27.